#clean it!
rm(list=ls())

#source the data
source('/Volumes/CROMARTIE/UT Dallas/F12/TAing/R/InClass/10152012/InClass_CreateWineDataMatrices.R')

#source PLSC stuff
source('/Volumes/CROMARTIE/UT Dallas/F12/TAing/R/InClass/10222012/Mine/PLSC.R')

plsc.results <- plsc(wine.sensory,wine.chemical)
plsc.plots(plsc.results,1)
plsc.plots(plsc.results,2)